VERSION 5.00
Begin VB.Form frmMultiDialog 
   Caption         =   "Add Files"
   ClientHeight    =   5775
   ClientLeft      =   1050
   ClientTop       =   3120
   ClientWidth     =   4980
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   5775
   ScaleWidth      =   4980
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   360
      TabIndex        =   5
      Top             =   4920
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.CommandButton cmdAccept 
      Caption         =   "Add Files"
      Height          =   855
      Left            =   1680
      Picture         =   "frmMultiDialog.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   4680
      Width           =   1455
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Close"
      Height          =   855
      Left            =   3240
      Picture         =   "frmMultiDialog.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   4680
      Width           =   1455
   End
   Begin VB.FileListBox File1 
      Height          =   2430
      Left            =   240
      MultiSelect     =   2  'Extended
      TabIndex        =   2
      Top             =   2160
      Width           =   4455
   End
   Begin VB.DirListBox Dir1 
      Height          =   1440
      Left            =   240
      TabIndex        =   1
      Top             =   600
      Width           =   4455
   End
   Begin VB.DriveListBox Drive1 
      Height          =   315
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4455
   End
End
Attribute VB_Name = "frmMultiDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAccept_Click()

'this adds files to the file box

'MsgBox UCase(Trim(frmContractor.txtCopyFilesTo.Text))
'MsgBox UCase(Trim(Dir1.Path)) & "\"
    
If UCase(Trim(frmContractor.txtCopyFilesTo.Text)) = UCase(Trim(Dir1.Path)) & "\" Then
    MsgBox "You can not select files from the same location as those you are saving."
    Exit Sub
End If

If UCase(Trim(frmContractor.txtCopyFilesTo.Text)) = UCase(Trim(Dir1.Path)) Then
    MsgBox "You can not select files from the same location as those you are saving."
    Exit Sub
End If
    
Dim zzz As Integer
Dim yyy As Integer

Dim ReqSpace As Long

zzz = 0
 
Dim Holder As String

Holder = Trim(Dir1.Path)

If Right(Holder, 1) = "\" Then
    Holder = Dir1.Path
Else
    Holder = Dir1.Path & "\"
End If
 
 
Do Until zzz = File1.ListCount

    yyy = 0
    
    If File1.Selected(zzz) = True Then
        
        Do Until yyy = frmContractor.lstFilesInDocument.ListCount
            frmContractor.lstFilesInDocument.Selected(yyy) = True
            If File1.List(zzz) = frmContractor.lstFilesInDocument.Text Then GoTo DontPutInDuplicate
            
            
            yyy = yyy + 1
        Loop
        
        If UCase(Right(File1.List(zzz), 4)) = ".MDB" Then GoTo DontPutInDuplicate
        'MsgBox UCase(Right(File1.List(zzz), 4))
        frmContractor.lstFilesInDocument.AddItem File1.List(zzz)
        
                Holder = Trim(Dir1.Path)
                
                If Right(Holder, 1) = "\" Then
                    Holder = Dir1.Path
                Else
                    Holder = Dir1.Path & "\"
                End If
                
        frmContractor.List1.AddItem Holder & File1.List(zzz)
        
    End If
    
DontPutInDuplicate:

    zzz = zzz + 1
    
Loop

frmContractor.txtDir.Text = Dir1.Path
frmContractor.txtDrive.Text = Drive1.Drive

''''''''''''''''''''''''''''''''''''''
Dim lFileSize As Long
frmContractor.lblRequiredSpace.Caption = 0

Dim kkk As Integer

kkk = 0

Do Until kkk = frmContractor.List1.ListCount
    
    frmContractor.List1.Selected(kkk) = True
    lFileSize = (FileLen(frmContractor.List1.Text) / 1000) + lFileSize
    
       
    'frmContractor.lblRequiredSpace.Caption = Val(frmContractor.lblRequiredSpace.Caption) + lFileSize
    
  ' added the ReqSpace so we can compare disk space and required space and still keep
  ' a pretty format
  
  
    ReqSpace = lFileSize
    
   
        frmContractor.lblRequiredSpace.Caption = Format(lFileSize, "#,###") & " KB"

    If Val(frmContractor.lblAvailableSpace.Caption) > 0 Then
       ' If Val(frmContractor.lblAvailableSpace.Caption) < Val(frmContractor.lblRequiredSpace.Caption) Then
  
  ' (frmContractor.lblAvailSpace.Caption) holds the unformated disk space
  
         If Val(frmContractor.lblAvailSpace.Caption) < ReqSpace Then
            MsgBox "The files you have selected exceed the storage space available on the drive you selected."   ' Define message.
            Exit Sub
        End If
        
    End If
    
    
        
    kkk = kkk + 1
Loop


End Sub

Private Sub cmdExit_Click()

Me.Hide

End Sub

Private Sub Command1_Click()
MsgBox Dir1.Path

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()
On Error GoTo BadSelection
Dir1.Path = Drive1.Drive

BadSelection:
If Err.Number = 68 Then
    MsgBox "This is an invalid selection please try again."
    Drive1.Drive = App.Path
End If

End Sub

Private Sub File1_DblClick()
cmdAccept_Click
End Sub

Private Sub Form_Load()

Drive1.Drive = "C:"

'If frmContractor.txtDrive.Text <> "" Then
'    Drive1.Drive = frmContractor.txtDrive.Text
'    Drive1.Drive = "c:"
'End If
'
'If frmContractor.txtDir.Text <> "" Then
'    Dir1.Path = frmContractor.txtDir.Text
'End If

End Sub
